home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / bufferinfo.fpl < prev    next >
Text File  |  1996-11-15  |  1KB  |  28 lines
  1. export void BufferInfo()
  2. {
  3.   string info;
  4.  
  5.   info= "Name: " + ReadInfo("file_name") + "\n" +
  6.         "Path: " + ReadInfo("file_path") + "\n" +
  7.         "Time: " + GetDate() + "\n" +
  8.         "Size:\n" +
  9.         "          " + ltostr(ReadInfo("size")) + " bytes\n" +
  10.         "          " + ltostr(ReadInfo("lines")) + " lines\n" +
  11.         "Changes: " + ltostr(ReadInfo("changes")) + "\n" +
  12.         "Tabsize: " + ltostr(ReadInfo("tab_size")) + "\n\n" +
  13.         "Undo buffer:\n" +
  14.         "          " + ltostr(ReadInfo("undo_lines")+1) + " steps\n" +
  15.         "          " + ltostr(ReadInfo("undo_memory")) + " bytes\n" +
  16.         "Fragment:\n" +
  17.         "          " + ltostr(ReadInfo("fragmentation")) + " holes\n" +
  18.         "          " + ltostr(ReadInfo("fragmentation_size")) + " bytes";
  19.   if (ReadInfo("block_exist")) {
  20.     info+="\nBlock: ";
  21.     if (ReadInfo("block_type")==2)
  22.       info+=sprintf("%ld x ", ReadInfo("block_end_x")-ReadInfo("block_begin_x"));
  23.     info+=ltostr(ReadInfo("block_end_y")-ReadInfo("block_begin_y")+1);
  24.     info+=" lines";
  25.   }
  26.   Request(info, "Buffer Information!", "So what!");
  27. }  
  28.